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FORS 
Tabl 


§ 4 ECLARATIONS 
1 ALL=BY-VALUE ENTRY POINT DESCRIPTIONS 
4 1 ALL=BY-REFERENCE ENTRY POINT A bd pat. $ 
7 & ORSIO_X_SE - Transmit single element by descriptor 
8 2 OR 10717pS - Transmit sir ng element by descriptor 
1 ORSIO_T_V_DS = Transmit str ba element then pop off stack 
1 OR$IO-X~DA - Transmit re not fea by osetyciecor 
1 ORSIO_X_SB = Transmit cont guous molied 
1 OR$IO_ X_NL = Transmit neneeantt quous ieotied=Do list 
2 RR_HANDCER - Exception handler for errors 
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raat yi $3 :eaice ERORRTL. SRC JF ORIOELEM.MAR; 1 . (1) | 
TITLE FORSIO ELEM ; FORTRAN 1/0 element transmission 
IDENT 477 : File: FORIOELEM.MAR Edit: SBL2047 
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ATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITHOUT N 
TAL EQUIPMENT 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED | 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE | 

INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTUARE OR WANT OTHER | 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY | 

OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY | 

TRANSFERR | 

THE INFOR HOUT NOTICE | 
| 


# Oe Se Oe Oe Oe Oe 
eaeeeeneeeeeeeenenenaneennne 


* 
* 
« 
oy 
x 
& 
* 
S & 
ED. a 
® 
4 4 
® 
# 
& 
A 
& 
a 
® 


(ARR RRARAASASASASESESELESE ESSER RSE EERE SESE SEER RRR R RSE RE REESE RRR R REAR ERE EES 


COOCOCoCQCQoQCQooQooQoQoQoooQooooooooooe 


"FACILITY: FORTRAN Support Library - user callable 
ABSTRACT: 


This nodule implements alt of the FORTRAN I/O List element 
smits calls made for each of the elements in a 

READ/URITE /DECODE JENCODE “CTYPE ACCEPT, and PRINT) 

statements at the user proerse interface level of 

sogtrect ian (UPI = Ist level). See FORS$IO_BEG 

and FORSIO_END modules for I/0 ames. Initialization 

and termination, respectively. 


ENVIRONMENT: User access mode; mixture of AST level or not | 
AUTHOR: Thomas N. Hastings, CREATION DATE: 02-Mar-77 
MODIFIED BY: 


omas N. Hastings, 02-Mar-77 : VERSION 01 
CPrev ious edit history removed. SBL 30-Sep-1982) 
- YeRsio KOA. rs) See ace imeginary part of DC and GC in 
2-041 = Add ned Element Ceakeutieers FORSIO_X_SB, FORS$IO_X_NL and 
OR $10. x xm to support collapsed mat Ted2b0 ListS.” JAW 


2-042 - en lenete revised interface to FORSIO_X SB and FORSIO_X NL. 
(Formatted Lists now always use FOR$! NL.) Improve Tlow 
for the noncontiguous unformatted complex case in FORS$IO_X_NL 
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element here and gon t i LL UDF level). 
2-046 - CON TO ELEMS opt ma ons and cneenus: 
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in the gggndting of complex 
SE 989° use in transmitting single- 


and PORSIO.X, » AL aver ceet eye 
elements if 0 Xx Ms SAW O-Apr-i 98 
2-043 = Add entry As. $1044 sf0- 
element Lik, 2 ~ ts PA 
Smt: = Remove FOR L. JAW 10-May-1981 
-045 = Add optimi atten ¢ for untorsetted elements to FORSIO_X_NL (move 


=-Jun=1981 


check fo FORS1O_X _SB; J. er optimize Aaa X_N ae 1Kx° 

simplify FORSIO_X_"SE and move forward in module” o Dontkes 

wil reach; remove spurious ERR_HANDLER; etc. JAW 05-Jul- 
2-047 = Change OTS$$ data structure references tp FORSS. 
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FORSIO_ELEM ; FORTRAN 1/0 element transmission 15-SEP-1984 23:53:43 VAX/VMS Macro v04-00 Page | FC 
obey BECLARATIONS 57 SEb= 1 382 $3:38:42 LFORRTL. SREIPORIOELEM. MAR; 1 . 3) 2- 
009 fe -SBTTL DECLARATIONS 
00 06 ; | 
8 as ; INCLUDE FILES: 
$0 {7 3 OTSISB.MAR - ISB offset definitions (in S.MLB) 
4 ei 5 OTSLUB.MAR - LUB offset definitions (in S.MLB) 
000 ¢ H 
Bae 73 EXTERNAL SYMBOLS: | 
44 5 -DSABL GBL : Force declara°ion of all externals 
00 6 -EXTRN FORSSA_CUR_LUB ; Currently active I/0 unit 
0000 87 -EXTRN FORSSAA_UDF_PR1 ; User data formatters 
0000 88 ; Contain word PIC dispatch entries. 
44 8 -EXTRN FORSSERR_ENDHND ; Common I/OERR=/END= error handler 
0000 91 ; MACROS: 
0000 38 : 
0000 9 SSFDEF ; Stack frame offsets defined 
0000 94 SDSCDEF ; Descriptor symbols 
0000 95 $SLUBDEF ; LUB definitions 
0000 96 SISBDEF ; ISB definitions 
4 4 $FORPAR ; inter-module definitions 
0000 99 ; PSECT DECLARATIONS: 
0000 100 ; 
0000 13 -PSECT _FORSCODE PIC,SHR,LONG,EXE,NOWRT 
0000 198 ; EQUATED SYMBOLS: 
0000 104 ; 
0000 105 
00000004 0000 106 elem_val = ; offset of item value 
00000004 0000 107 elem_adr = 4 : offset of item address or descriptor addre. 
00000004 0000 108 sig_args = 4 ; offset of signal args for handler 
00000004 0000 109 item_type = 4 ; offset of type in UDF arg List 
00000008 0000 110 item_size = 8 ; offset of size in UDF arg List. 
0000000C 0000 111 item_addr = 12 ; offset of address in UDF org List 
00000010 0000 112 cpx_flag = 16 : offset of COMPLEX flag in UDF arg List 
00000008 0000 113 count = ; Offset of count in SB or NCB 
0000000C 0000 114 stride = 12 ; Offset of stride in NCB 
00000008 0000 115 depth = : Offset of depth in MLB 
0000000C 0000 116 count_1 = 12 ; Offset of innermost count in MLB 
00000010 444 Me stride_1 = 16 ; Offset of innermost stride in MLB 
0000 119 ; The following entry masks are declared here so that they will be 
4 : 9 ; available to FORSIO_X_SE, which merges them with its own entry mask. 
00000800 0000 1 ¢ T_DS_MASK = “M<R11> 3 Entry mask for FORSIO_T_DS 
0000081C 0000 1 X_DA_MASK = “M<R2, R3, R4, R11> ; Entry mask for FORSIO_X_DA 
00000800 9000 4 XSB"MASK = “M<R1{> ; Entry mask for FORSIO"X~SB 
000 +1 § 3 
3 1 3; OWN STORAGE: 
0 1 § : 
00 1 


FORSIO_ELEM FORTRAN 1/0 element transmission 15-SEP-1984 23:53:43 VAX/VMS Macro v04-00 Page 4 FC 
Seite GALL -BY-VALU E ENTRY POINT DESCR IPT IONS Feat a Biteite FORRTL. SR Cir ORIOELEM.MAR; 1 ° (3) 2: 
a -SBTTL CALL=BY-VALUE ENTRY POINT DESCRIPTIONS 
1 3+ 
09 134 : The following routine header serves for all of the 
00 135 ; call-by-value entry points. 
000. = $ i- 
B38 1 
00 138 ;+ 
000 139 ; ABSTRACT: 
000 140; 
0000 141 ; Transmit (WRITE) a single data t type — from 
44 148 ; the user 1/0 List to the output buffer 
0 145 ; calling the appropriate user data lernarser 
444 bt: 3 (UDF) routine for the current I/0 statement. 
0000 146 ; FORMAL PARAMETERS: 
0000 147 ; 
0000 148; ELEM_VAL.rx.v element by-value 
0000 149; 
0000 150 ; IMPLICIT INPUTS: 
0000 151; 
0000 136 3 FORSSA_CUR_LUB Adr. of current logical 
0000 153; unit block (LUB). Used to setup 
0000 154 ; ISB base to get current 1/0 
0000 155; statement type code. 
0000 156; ISBSB_STTM_TYPE 1/0 statement type code - index 
0000 157; to dispatch table entry 
0000 158; FORSSAA_UDF _PR1 Array of user data formatters (UDF 
0000 159; level of abstraction.) 
0000 160; 
0000 161 ; IMPLICIT OUTPUTS: 
0000 16¢ 3 
0000 163; NONE 
0000 164; 
0000 165 ; SIDE EFFECTS: 
0000 166 ; 
0000 167; If an error occurs, it is SIGNALed unless an ERR= 
0000 168 ; transfer parameter wee sees Tied when the 1/0 statement 
0000 169; pat debs oe beg call w see module FORS 
0000 170 ; st pers : FORSCREAD, unite) {SF ,S0,SU,DF ,D0,Bu, SL) or 
0000 171; FORS D CODE *ENCODE) {MF ;MO}), Tn which case cortrol 
4 i oe : is transferred to the aborition address (after stack unwind.) 
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FORSIO_ELEM FORTRAN 1/0 element transmission 15-SEP-1984 23:53:43 VAX/VMS Macro v04-00 Page 5 
see tALL-BY-REFER RENCE ENTRY POINT DESCRIPTIO Pat et 1 ieice FORRTL.SRCJFORIOELEM.MAR; 1 ° (4) 
98 178 -SBTTL CALL=BY-REFERENCE ENTRY POINT DESCRIPTIONS 
0 177 34 
0 178 ; The following routine header serves for all of the 
38 1h 3 _call-by-reference entry points. 
$0 13] 
00 1 ¢ p++ 
00 183 ; ABSTRACT: 
0000 184 ; 
0000 185 ; Transmit (READ or WRITE) a single data type element from 
44 186 : the user 1/0 List to the output buffer by 
00 187 ; calling the appropriate user data formatter 
444 138 3 (UDF) routine for the current I/0 statement. 
0000 190 ; FORMAL PARAMETERS: 
$000 192 | ELEM_ADR l by-ref 
; ADR. xx.r element by-reference 
0000 198 3 ’ 
0000 194 ; IMPLICIT INPUTS: 
$090 196 : FORSSA_CUR_LUB Ad f l 
: _CUR_ r. of current lo 
0000 197; unit block (LUB). ty to setup 
0000 +198 ; ISB base to get current 1/0 
0000 199; statement type code. 
0000 $n0 ; ISB$B_STTM_TYPE 1/0 statement type code - index 
0000 01 ; to dispatch table entry 
0000 $06 $ FORSSAA_UDF _PR1 Array of user data foratters (UDF 
0000 203 ; level of abstraction.) 
0000 204 ; 
0000 205 ; IMPLICIT OUTPUTS: 
0000 206 ; 
0000 207; NONE 
0000 $09 3 
0000 09 ; SIDE EFFECTS: 
0000 210 ; 
0000 211 ; If an error occurs, it is SIGNALed unless an ERR= 
0000 i 3 transfer parameter was specified when the 1/0 statement 
0000 13; wt hehe 2 hg catt was made (see segue FORSI 
0000 14; entry points ORS{READ, ad {SF,S0,SU,DF ,D0,6U,SL) or 
0000 15 ; FORS{DECODE, ENCODED {MF , 2 in uhich> case control 
0000 216; is transferred to the aces ttied address (after stack ???.) 
0000 217 ;-- 
0000 218 


6 
FORSIO_ELEM ; FORTRAN 1/0 element transmission 15-SEP-1984 23:53:43 VAX/VMS Macro v04-00 Pa 
ebe? EALLCBY-REFERENCE ENTRY POINT SESCRIPTIO ‘O-SEP=19RG fO:se.ce FFORKTE CRETCONTOE CoM maR:1 29° (8) 
0800 0 ENTRY FORSIO_B_V, “M<R11> ; BYTE/LOGICAL*®1 by-value 
04 aC DF 1 PUSHAL eLlem_val TAP) : push address of value 
0 11 ¢ BRB 10_B_COM ; common code for BYTE 
0800 007 4 -ENTRY FORSIO_B_R, “M<R11> ; BYTE/LOGICAL*1 by-reference 
04 AC DD a 5 PUSHL elem_adrTAP) ; push address of value 
09 C 5 10_B_COM: 
01 DD O000C 8 PUSHL #1 3; size for BYTE data type 
06 DD 000 9 PUSHL #DSCSK_DTYPE_B ; data-type code for BYTE 
22. «(11 44 ? BRB COM_IO_ELEM ; common code for all data-types 
$61 : 
001 
0800 001 34 -ENTRY FORSIO_W_V, *M<R11> ; INTEGER*2 by-value 
04 AC DF 0014 35 PUSHAL eLlem_valTAP) ; push address of value 
05 11 Baie $$ BRB 10_W_COM 3 common code for INTEGER*2 
0800 0019 238 -ENTRY FORSIO_W_R, “M<R11> ; INTEGER*2 by-reference 
04 AC OD pie $78 PUSHL elem_adrTAP) ; push address of value 
OIE 341 10_W_COM: 
02 OD 443 8 PUSHL #2 3 size for INTEGER*2 data typs 
07 DD 002 24 PUSHL #DSCSK_DTYPE_W ; data-type code for INTEGER*2 
10 11 Base see BRB COM_IO_ELEM ; common code for all data-types 
$054 $2 
0024 247 
0800 bn5¢ 248 -ENTRY FORSIO_L_V, “M<R11> : INTEGER*4 by-value 
04 AC DF 0026 $e3 PUSHAL elem_val TAP) ; push address of value 
05 =(11 BaSe 39 BRB 10_L_COM ; common code for INTEGER®4 
0800 0028 334 -ENTRY FORSIO_L_R, “M<R11> : INTEGER*4 by-reference 
04 AC OD tH) e? PUSHL elem_adrTAP) ; push address of value 
0030 55 I0_L_COM: . 
04 dD 0030 56 PUSHL #4 ; size for INTEGER*4 data type 
08 oD boss 2f PUSHL #DSCSK_DTYPE_L ; data-type code for INTEGER*4 
0034 59 COM_IO_ELEM: 
5B  Q0000000'°GF 00 Boe 60 MOVL G*FORSSA_CUR_LUB, R11 ; R11 => Current Control Block 
4D FC AB 09 «CE1:«(003B 261 BBC #LUBSV_UNFORMAT, LUBSW_UNIT_ATTR(R11), XCALL1 
0040 6¢ : can't optimize if formatted 
50 B60 08 dO hd 6 MOVL Less BUF _PTR(R11), RO ; RO => record buffer : 
51 O64 AE 5 C1 44 64 ADDL3 RO, 4TSP)? ; R1 = prototype record buffer pointer 
B4 AB «51 =—1 0049 65 CMPL R1, LUBSA_BUF_END(R11) ; overflows buffer? 
—E 1A 004D 66 BGTRU XCALL1 3; branch if yes 
3B FF71 (CB ED «(O04F 6267 BLBC ISBSB_STTM_TYPE(R11), RU 
Baee o8 ; ; dispatch to read/write code 
OR 70 : write unformatted. Move users data into the record buffer 
07 01 O04 AE CF 0054 re : CASEL 4(SP), #1, #7 ; dispatch on element size 
O1c' 0059 273 10$: WORD wBYTE - 10s 
022" 0058 74 -WORD WWORD - 10$ 
0 Baee 75 .WORD 
0028" OOSF 76 -WORD WLONG - 10$ 


ee 


—_—— 
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FORSIO_ELEM FORTRAN 1/0 element transmission 15-SEP-1984 23:53:43 VAX/VMS Macro V04-00 Page 
pera tALL-BY-REF ERENCE ENTRY POINT DESCRIPTIO 37 866=} 383 iteite LFORRTL. SREP ORIOELEM.MAR: 1 ° 
6 77 » WORD 
009 Os 78 “WORD 
3 7 » WORD 
O2E' O89 ? » WORD WQUAD - 10$ 
51 08 AE 0 69 ¢ WOCTA: MOVL 8(SP), R1 ; Get source address 
80 =—81 D 990 mMOVQ (R1)+, (RO)+ ; Move first quadword 
80 9 9 14 : nove 1 (RO)+ 3 Move second quadword 
80 08 BE 90 Bae § WBYTE: MOVB aB(SP), (RO)+ 
4B 11 07 BRB COM 
80 08 43 BO gn7e $ WWORD: MOVW a8(SP), (RO)+ 
4 11 7F BRB COM 
80 08 BE dO Boe) 90 WLONG: MOVL a8(SP), (RO)+ 
F 11 0085 91 BRB COM 
80 08 3 7D 4 7 38 WQUAD: MOVQ @B(SP), (RO)+ 
11 088 9 BRB COM 
43 11 8 4 36 XCALL1: BRB CALL’ 
Soar 96 
OO8F 97 
it 38 : ; read unformatted. Move data from record buffer to users element 
07 01 04 AE CF O008F $00 au: CASEL 4(SP), #7 : dispatch on element size 
gore: 009 $01 108: .MORD BY TE"- "16s ¢ 
0022° 0096 8 -WORD RWORD - 10$ 
0000 0098 0 WORD 
0028 OO9A 04 » WORD RLONG - 10$ 
0000 8! 05 WORD 
0000 9 306 WORD 
0000 O0A 07 ~ WORD 
002E° BpAe BS ~ WORD RQUAD - 10$ 
51 08 AE DO OO0A4 10 ROCTA: MOVL 8(SP), R1 ; Get result address 
81 80 7D eRAe 11 MOVQ (RO)+, (R1)+ 3; Move first auadword 
61 80 7D OQOAB \¢ MOVQ (RO)+, (R1) 3; Move second quadword 
16 11 QOAE 1 BRB COM 
08 BE 80 90 0080 14 RBYTE MOVB (RO)+, a8(SP) 
10 11 Bee 15 BRB OM 
08 BE 80 BO 086 16 RWORD MOVW (RO)+, @8(SP) 
OA 11 OOBA 17 BRB COM 
08 BE 80 00 008 18 RLONG: MOVL (RO)+, a8(SP) 
04 11 O0OC 19 BRB COM 
08 BE 80 7D 0c $0 RQUAD: MOVQ (RO)+, @8(SP) 
0c 1; BRB = COM 
BO AB 650 dO 00C6 38 Com: MOVL RO, LUBSA_BUF_PTR(R11) ; store the updated pointer 
04 th ? RET 
ie 5: 3; come here if checks for the optimization indicate the UDF must be called. 
5B Q0000000'GF 00 bce 5 CALLUDF : MOVL G*FORSS$A_CUR_LUB 7 9! R11 = Current Control Block pointer 
50 FF71 (CB 9A 000¢ 8 CALL1: MOVZBL ISB$B_STTM_TYPE(R11), 
OD 9 O.rcatenent type 
50 00000000'GF40 p00 00D7 0 MOVL G*FORSSAA_UDF -PRI=<1SBSK. “rORSTIVUDeds2>ER 
ODF 1 signed d offset relative to beginning 
ODF % : ot FORS AA ayer 
6D OSIE'CF DE ODF MOVAL W*ERR_HANDLER, (FP) 3; set up hand or -P 


7 . iF oi tt hd 9 $3 :83:62 yale Macro V04-00 Page (3) 


| SORSJO_ELER ; FORTRAN 1/0 element transmissi 
| 2-06 CALL-BY-REFERENCE ENTRY POINT DESCRIPTIO 6-SEP=1 56:44 (CFORRTL.SRCJFORIOELEM.MAR; 1 
| 00000000'GF40 03 FB 0 E4 4 CALLS #3, G*FORSSAA_UDF_PRICRO] ; call the UDF Level routine. 
04 sf 5 RET ; and return to the user 
0800 ' ED 5 ENTRY FORSIO_WU_V, “M<R11> ; LOGICAL*2 by-value 
04 AC DF OOEF g PUSHAL elem val (APS ; push address of value 
05 «11 ore i} BRB 10_wO_COM ; common code for LOGICAL*2 
0800 QOF4 4) eENTRY FORSIO_WU_R, “M<R11> ; LOGICAL*2 by-reference 
04 AC DD OF6 4g PUSHL elem_adr (APS ; push address of value 
OF 44 10_WU_COM: 
§ DD OOF9 45 PUSHL #2 ; size for LOGICAL*2 data typs 
Bp OFB 6 PUSHL #DSCSK_DTYPE_WU ; data-type code for LOGICAL* 
FF 34 1 443 te BRwW COM_IO_ELEM ; common code for all data-types 
0100 49 
0100 50 
0800 0100 51 -ENTRY FORSIO_LU_V, “M<R11> ; LOGICAL*®4 by-value 
04 AC oF 0102 2¢ PUSHAL elem val (APS ; push address of value 
05 1 R188 $27 BRB 10_L0_COM ; common code for LOGICAL*4 
0800 0107 55 -ENTRY FORSIO_LU_R, “M<R11> ; LOGICAL*®4 by-reference 
04 AC OD Bibe 3$ PUSHL elem_adr (AP) ; push address of value 
010C 358 10_LU_CoM: 
04 dd 010C 59 PUSHL #4 : size for LOGICAL*4 data type 
04 D B95 60 PUSHL #DSCSK_DTYPE_LU ; data-type code for LOGICAL *4 
FF21 1 gti $1 BRw COM_IO_ELEM ; common code for all data-types 
0113 368 
0113 64 
0800 0113 365 -ENTRY FORSIO_F_V, “M<R11> ; REAL*4 by-value 
04 AC ODF 0115 $39 PUSHAL elem_val TAP) 3; push address of value 
0s =(11 aie $08 BRB 10_F_COM ; common code for REAL*4 
0800 O11A 369 -ENTRY FORSIO_F_R, “M<R11> ; REAL*4 by-reference 
04 AC ODD Riis oy PUSHL elem_adrTAP) ; push address of value 
O11F re 10_F_COM: 
04 OD OIF 7 PUSHL #4 ; size for REAL*4 data type 
OA D 0121 74 PUSHL #DSCSK_DTYPE_F 3 data-type code for REAL*4 
FFOE 1 4 ; 2 BRw COM_IO_ELEM 3 common code for all data-types 
4 6 77 
126 78 
0800 01 8 79 -ENTRY FORSIO_D_V, “M<R11> 3; REAL*8 by-value 
04 AC DF O12 80 PUSHAL elem_valTAP) : push address of value 
a 8158 1 BRB 10_D_COM ; common code for REAL*8 
0800 0 D § -ENTRY FORSIO_D_R, “M<R11> ; REAL*8 by-reference 
04 AC DD o1 ‘ , PUSHL elem_adrTAP) ; push address of value 
1 : 6 10_D_COM: 
08 oD QI 7 PUSHL #8 ; size for REAL*8 data type 
08 D 0134 8 PUSHL #DSCSK_DTYPE_D ; data-type code for REAL*8 
FEFB 1 : 3 +4 BRW COM_IO_ELEM ; common code for all data-types 


FORS}0_ELER ; FORTRAN 1/0 element transmission 15-SEP-1984 
2-04 CALL=BY-REFERENCE ENTRY POINT DESCRIPTIO 6-SEP-1984 
0800 5 33 ENTRY FOR$IO_G_V M<R11 
. “M< > 
04 at DF 0138 38 PUSHAL elem_val TAP) 
05 11 13 94 RB 10_G-COM 
0800 014 9 -ENTRY FORSIO_G_R “M<R11> 
04 ac OD 14 3) PUSHL elem_adr TAP) 
14 3 10_G_COM: 
08 pd 0145 400 PUSHL #8 
1B bp 147 401 PUSHL #DSC$K_DTYPE_G 
FEES = 31 bee 40¢ BRW COM_I0-ELEM 
14C 4 
O14e 408 
0800 Oi4¢ 406 .ENTRY FORSIO_H_V “M<R11> 
04 AC DF O14E 407 PUSHAL eLem_valTAP) 
05 11 a3 408 BRB 10_H~COM 
0800 133 410 ENTRY FORSIO_H_R, @M<R11> 
04 AC DD B23 ai PUSHL elem_adrTAP) 
6138 218 10_H_COM: 
10 DD 0158 414 PUSHL #16 
1¢ DD 015A 415 PUSHL #DSC$K_DTYPE_H 
FEDS §=631 (015s 416 BRW COM_IO"ELEM 


1033 


3:43 
6:44 


AX/VMS Macro v04-00 
FORRTL.SRCJFORIOELEM.MAR; 1 


G REAL*8 by value 
push address of value 
common code for G REAL*8 


G REAL*8 by reference 
push address of value 


size for G REAL*8 data type 
data-type code for G REAL +8 
common code for all datatypes 


H REAL*16 by value 
push address of value 
common code for H REAL*16 


H REAL*16 by reference 
push address of value 


size for H REAL*16 data type 
data-type code for H REAL*16 
common code for all datatypes 


1 6 
FORSIO_ELEM ; FORTRAN 1/0 element transmission 15-SEP-1984 23:53:43 VAX/VMS Macro V04-00 P 10 F 
ete CALL-BY-REFERENCE ENTRY POINT DESCRIPTIO 6-SEP-1984 93; aice FORRTL.SRCJFORIOELEM.MAR; 1 = (6) 2 
0804 O15F £18 -ENTRY FORSIO_FC_V, “M<R2,R11> 
SC O04 AC DE 0161 41 MOVAL elem _val(APS, AP ; get address of value 
06 1 193 ? y BRB 10_FC_COM 
0804 0167 4&4 6 sENTRY FORSIO_FC_R, “M<R2,R11> 
5¢ 046 AC OD 169 4 ; MOVL elem_adr(APS, AP ; get address of value 
16D 425 I10_FC_COM: 
50 DO 198 426 MOVL #OSCSK_DTYPE_F, RO ; RO = type 
51 04 DO 01 9 427 MOVL #4, R1 ; R1 = size 
11 \f ? 8 BRB 10_CPLX_COM ; Join common complex code. 
gn i 
0804 EE a3 -ENTRY FORSIO_DC_V, “M<R2,R11> 
5C O04 AC DE 0177) 43 MOVAL elem val(APS, AP ; get address of value 
06 «11 HEA rir BRB 10_0C_COM 
0804 bi 9p 436 sENTRY FORSIO_DC_R, “M<R2,R11> 
5C 04 AC DO OI7F 437 MOVL elem_adr (APS, AP ; get address of value 
6183 139 10_DC_COM: 
50 0B 00 0183 440 ~ ~ MOVL  #DSCSK_DTYPE_D, RO ; RO = type 
11 11 0186 441 BRB 10_0C_GC_COM ; Join common DC/GC code. 
0188 rr 
ge 
0804 0188 445 -ENTRY FORSIO_GC_V, “M<R2,R11> 
5C 04 AC DE 018A 446 MOVAL elem _val(APS, AP ; get address of value 
06 = «(11 413 rr BRB M 
0804 0190 449 «ENTRY FORSIO_GC_R, “M<R2,R11> 
5C 04 AC DO B13e $29 MOVL elem_adr (AP), AP : get address of value | 
0196 126 10_GC_COM: 
50 18 00 0196 493 Rye 6c #DSCSK_DTYPE_G, RO ; RO = type | 
51 08 00 0199 435 ig Tg Ov. #8, RI ; R1 = size 
oS Oto ws he Sr “MOVAL W*ERR_HANDLER, (FP) ; Set up END=/ERR= handler. 
5B _Q00000000'GF DO O1A1 458 G*FORSSA_CUR_LUB, R11 _; R11 => Current Control Block 
52. FF71 CB 9A O1A8 459 MOVZBL ISB$B_STTM TYPE(R11), R2; Get statement type for dispatch. 
52. 00000000'GF42 DO O1AD 460 MOVL G*FORSSAA_ODF _PR1-<1$BSK_FORSTTYLO#4—4>(R24. R2 
185 461 ; R2 = displacement to UDF routine 
22 FC AB O09) SEO (0185 46¢ BBS #LUBSV_UNFORMAT, LUBSW_UNIT-ATTR(RI1), 208 
1BA 46 ; Branch if unformatted. 
90 DD OIBA 464 PUSHL #0 ; Flag real part of value. 
C bp 1BC 465 PUSHL AP ; Push address of real part. 
7E 8650 D O1BE 466 mMOVQ RO, -(SP) ; Push size (R1) and type (RO). 
04 OD O1C1 467 PUSHL # ; Push argument count. 
O0000000'GF42 6E FA iS 298 CALLG (SP), G*FORSSAA_UDF_PR1CR2) ; Transmit real part. 
10 AE d6 1¢cB 470 INCL cpx_flag(SP) ; Flag imaginary part. 
OC AE O8 AE C ie 471 ADDL item_size(SP), item_addr(SP) ; Step to imaginary part. 
00000000'GF42 6— FA 01D 47¢ CALLG (SP)> G*FORSSAA_UDF~PRICR2) ; Transmit imaginary part. 
04 13 ot RET ; Return to caller. 
s¢ 


rom— 
wom 
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ment transmission 15- 


0 eleme SEP=1984 23:53:43 \VAX/VMS Macro v04-00 Page 11 | 
RENCE ENTRY POINT BESCRIPTIO ‘O-SEP-1ORG VOssace LRBAMTS. eae TPOnSGecommar:1 2% fd, 
$f? ; Here if unformatted. | 
cr 20$: PUSHL AP ; Push address of item. 

4 § ADDL R1, R1 ; Double the size. 

47 mMOVQ RO. -(SP) ; Push size (R1) and type (RO). 

480 CALLS #3, G*FORSSAA_UDF_PRICR2) ; Call UDF routine. 

481 RET 3 Return to caller 


uO 


| 


FORSIO_ELEM ; FORTRAN 1/0 
ebe) FORSIO_X_SE - T 
1ED 483 
1ED 484 
1ED 485 ;4 
1ED 4 § 3 
gig ee 
Si Ep rh: : 
RIES 490 ; 
1ED 491; 
RIED 236 3 
1ED 4935; 
Biee 494 ; 
1ED 495; 
O1ED 436 3 
O1ED 497; 
O1ED 498 ; 
QO1ED 499; 
O1ED 500; 
O1ED 501 ; 
01ED 208 3 
O1ED 503; 
O1ED 504 ; 
O1ED 505 ; 
O1ED 506; 
O1ED 507 ;- 
O1ED 508 
081C O1ED 509 
5B O00000000'GF DO O1EF 510 
00 96 AB «0C.) COE2 «COO1F6— S511 
01FB Ar 
01FB 51 
01FB 514 ;+ 
O1FB 515; 
O1FB 516; 
01FB 517; 
01FB 518 ; 
O1FB 519 ;- 
O1FB 520 
O1FB = 521 
O1FB 5 § 
50 04 86C 08 9C O1FB 523 5$: 
04 50 91 3600 524 
58" 13 020 525 
05' Ff R503 $$ 
0116" 31 0207 527 


single element by 6-SEP- 56:44 (CFORRTL.SRCJFORIOELEM.MAR; 1 ( 
-SBTTL FORSIO_X_SE - Transmit single element by descriptor 


+ 
ABSTRACT: 


Transmit (READ or WRITE) an element which is the only element in 
the current 1/0 List, without the use of a buffer if possible. 


; FORMAL PARAMETERS: 


DESCR.rr.r Descriptor of class 1, 4, or 191 
IMPLICIT INPUTS: 

FORS$A_CUR_LUB Adr. of current logical unit block (LUB) 
IMPLICIT OUTPUTS: 

ISB$V_SNGL_ELEM Flag indicating that this element is 


the only element in the current 1/0 List 


SIDE EFFECTS: 


NONE 


-ENTRY FORSIO_X_SE, T_DS_MASK!X_DA_MASK!X_SB_MASK!“M<R11> 
MOVL  G*FORSSA~CUR_LOB,~R11__ ; RT1 => Current Control Block 
BBSS #ISBSV_SNGL_ELEM, ISBSW_STTM_STAT(R11), 5$ , 
; Indicate single-element List 
; (potentially unbuffered). 


Dispatch on 
to F 


gener tpt r cl 

ORSIO_X_DA if class = DSCSK_CLASS_A 

to FOR$IO_T_DS if class < DSCSK_CLASS_A (DSC$K_CLASS_S assumed) 
to FORSIO_X_SB if class > DSCSK_CLASS_A (FORSK_CLASS_SB assumed) 


ASSUME <DSC$K_CLASS_S> LESS_THAN <DSC$K_CLASS_A> 
ASSUME <DSCSK-CLASS_A> LESS_THAN <FORSK-CLASS-SB> 


RO aZ(AP),°R :7> = descriptor class 
CMPB RO 1OX-OKS A 


4 C Is class = 4? 
BLSSU FORSIO-T~DS+ 


: If so, transmit array. 
a : If less, transmit text string. 
BRW FORSIO_X_SB+2 : 


Else transmit implied-DO List. 


K 6 
elem transmissi 15-SEP-1984 :53:43  VAX/VM 4- 
——. r on ; 1384 $3: VMS Macro V04-00 Page 16, 


uO" 


FORSJO_ELEM 
2-04) 


—> 
‘2a 


“OOOO OCOOOSOOSCOSCOOOSOOOCO COSCO OCOOOCOOCO OO OOOO OOOOOOO 
NVINOCO > > Pr rr Yrrrrrrrrrrrrr>r>rrrr Yr Yr rrr rrrrrrrrrrrr,r 


1o 


6 
Lemen transmission VW 
ransmit string element by 6=-S 


-SBTTL FORSIO_T_DS 
ABSTRACT: 


the user 


; ; FORMAL PARAMETERS: 
ELEM_ADR.xt.ds 

IMPLICIT INPUTS: 
FORS$A_CUR_LUB 


1SB$B_STTM_TYPE 
FORSSA_UDF _PR1 


; IMPLICIT OUTPUTS: 

NONE 

; SIDE EFFECTS: 

If an error occurs, it is 
initialization cal 


FORSCDECODE ,ENCODE) {MF 


FORSIO_T_DS 
Rye adr (AP) 


Ah db db db dba h-db-db-db-tb-db-db db db-db- ah dh dh Ab dh ah dh ah ab bh ab dh dh dh bedh ah dh dh db hb hh hh ah ah ah Ab db hh ab ah aha) 


ADSCEK DIYPE_1 
BRwW CALLUDF 


Transmit (READ or WRITE) a singl 
1/0 List to the outpu 

the input buffer to the user 1/0 
calling the appropriate user dat 
(UDF) routine for the current I/ 


Adr. 


Arra 
ieve 


0}) 


71986 {0:30:44 


- Transmit string element by descriptor 


€ 
bu 
l 
3 
0 


youlyas Macro V04-00 
LFORRTL. SREIPORIOELEM.MAR; 1 


haracter string from 
er from 


ormatter 


¢ 
f 
i 
f 
statement. 


element by-descriptor (static) 


of current Logi 
unit block (LUB). 


g cal 
sed to setup 


base to get current 1/0 


statement type code. 
1/0 statement type code - index 

to dispatch tab 

of user data formatters (UDF 
of abstraction.) 


e entry 


SIGNALed unless an ERR= 


transfer parameter was By ot when the iy gtgsgeens 


see module FOR$I 


wa 

entry pornt $: FORSCREAD, ant Ted 5 ,$0,SU,DF,D0,BU,SL) or 
n wh 

is transferred to the cet etal address (after stack unwound.) 


ich case control 


get descriptor into RO'R1 
push pecrene 

~— songs data-t 

push string data-type 
call the UBF 


Page 
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CORS}0_ELER ere 1/0 element Franeajsston 15-SEP-1 384 $3: 47:47 AX/VMS Macro V04-00 
-04 for T.V_DS = Transmit string element 6-SEP-19 6:44 (CFORRTL.SRCJFORIOELEM.MAR; he 


-SBTTL FORSIO_T_V_DS = Transmit string element then pop off stack 


* 
FUNCTIONAL DESCRIPTION: 


Transmit (READ or WRITE) s be 4 shores ter Serrng from ' 
the user 1/0 jst to the outpu uryee or fro 

the inpout buffer to the user 1/0 List by 

calling the epereer tase user data all | Be (UDF) 

routine for the current I/0 statement. 

This routine is identical to FORS$IO_T_DS except that 

the string passed is popped off ene “stack as part of the 
return to the user program. As such it is a non-standard 
eraceeure. It is real passing the sivine by value 

and is used by the comiler to pass the result of a temporary 
string expression computed on the stack. 


CALLING SEQUENCE: 

CALL FORSIO_T_V_DS (elem_adr.xt.ds) 
INPUT PARAMETERS: 

NONE 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
If an error occurs, it is SIGNALed unless an ERR= 
transfer parameter wes _bpegi tee when the 1/0 statement 
initialization call was made (see S pees FORSIO 


entry points: FORS{DECODE, ENCODED MF,MO}), in which case control 
is transferred to the specified address (after stack unwound). 


aaa a ak an ant a kn tn a an an a a a ss ss sn Ss Ss SS —s — Ss os ss as 1s Ss ss —) 4 


>>>>rrr>>r>r>r>rrrr rr rrr rrr rrrrrrrrrrrr>rr rrr rrr rY 
RN 2 2 FP HP MK PFOOOCOOCOCOCOCOCC OOOO OOOO O OBWBOBOwWMMmMmMon-~~ 


MOOD NAME WIN OC OD NOA UE WO OODNAUE WN OUOONOUS Wr OOo 


Pete Se Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Se Se 
+ 


COooCCCCOCOCoCOCOCOCOoOCOCOCOOCCOOCOCOOCOOOCOOCOOOOOOO 
PARES AAAAAAAS AAAS A AAA AIAN IVI 


POPIPOPIPINIPYNINIPIPINININININONMININPININYD 


vow 


FORSIO_ELEM 
=00h 


» FORTRAN 1/0 e 
For$I0_T_V_DS = 
4800 021A 623 
1C t i 
sp “Booopoos'er pH OSs B5e 
8 §? C » BS $ 
1 DD . ¢ : 

v7 So & 7 ¢ 
0— dD 1 630 

50 FF71 cB A 3 631 
00000000'GF40 D0 0 38 6 é 
00000000" GF 40 03 FB 40 634 
50 10 AD DO 02468 635 
10 AD S6'AF DE 026C 636 
51 04 B8C 3C 0251 637 
04 0255 638 
0256 639 
0256 640 

0256 641 
0256 64g 

0256 64 

SE 51 CO 0256 644 

60 17 0259 645 


| 
| 
| 
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Lement transmission 


© 15-SEP-1984 $3: 253:4 AX/VMS Macro V04-00 Pege 
Transmit string element 6-SEP-1984 10:56:4 FORRTL.SR RCIF FORIOELEM.MAR; 1 
ENTRY FORSIO_T_V_DS, “M<IV, R R11> 
; enable integer overflow 
MOVAL WERR reir (FP) ; setup ERR=/END= handler 
MOVL L“FORSSA LUB, R11 ; => Current Control Bloc 
MOVQ 5 Lem_ saat apy: rb ; RO/R1 = aortas Congr voter a adr) 
PUSHL i arg3 = adr. stri ng 
MOVZWL : arg2 = Length of string 
PUSHL MDE CSK D ; ar ‘a : Bess. type code of ose tne (text) 
MOVZBL 8 3M Pr EPE (RII 


1SB$B ei ge ment chhs® £8 for dispatc 
MOVL G*FORSSAA _ODF PERT <1 SOSK. F RSTTVLOwo-42CR 
= displacement es our routine 


CALLS #3 G*FORSSAA UDF -PRI CRO! ; process the element 
MOVL SF$L_SAVE_PC(FP),~RO 0 = user PC saved on call 
MOVAL 6*108, SFsi SAVE “PC(FP) : set return PC to Label in this routine 


@elem_adr (AP), RT ; R1 = Length of string to be popped 


3 return to label 10$ 


3¢ 
; Here on RET to pop off string from stack and go back to user 


10$: ADDL R1 


SP ; adjust SP by Length of strin 
JMP (rb) be aaller . 


: now return to ca 


um! 


WHAM HHHHHHHMMMMOOOTOCVTCVTVTVTVOIVTUOITVTIIVTVTVTVVVMONONOoOoOWr>>r>r>r>r rr YY YY Yr rrYrr,Yr 


———_———— 
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-SBTTL FORSIO_X_DA - Transmit entire array by descriptor 


—D 
o- 
=D 
o 
>- 
2 


544 
; ABSTRACT: 


Transmit (READ or WRITE) a single data type element from 
the user 1/0 List to the output buffer by 

calling the appropriate user data formatter 

(UDF) routine for the current I/0 statement. 


FORMAL PARAMETERS: 


ARRAY_DESC_ADR.xx.da Adr. of array descriptor 
Data type code in descriptor 
IMPLICIT INPUTS: 
FORSS$A_CUR_LUB Adr. of current vogtca 
unit block (LUB). Used to setup 
SB base to get current 1/0 
statement type code. 


ISB$B_STTM_TYPE 1/0 statement type code - index 
to dispatch table entry. 
FORSSAA_UDF _PR1 Array of user data formatters (UDF 


level of abstraction.) 
IMPLICIT OUTPUTS: 
NONE 
SIDE EFFECTS: 


CGOOOCOCOCOCOSOCOSSOSIBGOOCOCOOOCOOOOCOOOOCOOOOOOOOOOCOO 
POPPPPPPPOPININDUPINIPONPIPININIPSTUPIPIPIPINIPNIPINPINIPONPIPPPOPINNY 
prapwabrabeabeabeab-abvabeabeabealealealealealeglearegieareg lea les leglegles lea lesealeaealearealealealealealealeales mm Dd 
pededededededede de debetedetetedeTeledetetestetesteteteTeleles[esleslestestesleslesles[y:]> Ja Mp 


Sete Se Se Se Ge Se Ge Se Be Be Be Ge Se Se Ge Se Ge Se Ge Se Se Se Ge Se Se Ge Se Se Se Se Se Se Ge Se 


9 If an error occurs, it is SIGNALed unless an ERR= 

0 transfer parameter was specified when the 1/0 statement 

1 initialization call was made (see module FORS$IO_BEG, 

¢ entry porate: FORSCREAD, ,WRITE}_{SF,SO,SU,DF.00,5U,SL) or 
FORSCDECODE, ,ENCODE}) {MF ,MO}), Tn which case control 

: is transferred to the specified address (after stack unwound.) 


00 Page 1g, 


SF 
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FORSIO_ELEM . SEP=1984 23:53:43 VAX/VMS Macro v04-00 Page 17 
ete, iors 10_X_DA = Transmit entire array by d Peet set 1iseice LRORRTL. SRC IF ORIOELEM.MAR: 1 . (13) 
081¢ B 687 eENTRY FORSIO_X_DA, X_DA_MASK 
60 OSIE'CF 3 3 6 8 MOVAL W*ERR_AARD LER, ~(FP) : setup ERR=/END= handler 
moots HE te ESE, Fence ttanoimMa stg | AY gestecett Coat Bethe 
3 get statemen e gr spatc 
52  00000000°GFS0 BO GE 691 308: HOWL G FORSSAA ODF. PRiI-<ISOSK FORSTIV OsecasC ROG” , 
6 $36 ; ate = displacement m ur routine 
50 4 AC DO 76 «69 MOVL elem_adr (AP) 3 get : ee to descriptor 
54 04 A0 DO 027A 694 MOVL  DSCS$A SOINTER (ROD , RG; ase address 
09 £0 7 695 BBS #LUBSO_UNFORMAT,=- : : “sbi unformatted? 
45 FC AB 8 696 LUBSW_ONIT_ATTR(R11), 7 
8 69 p! if yes, go. trensfer the whole array 
5c 54 _0C AO + 4 698 DOL DSCSL_ARSIZE(RO), Re get high address+1 
53 «60 C 8 344 MOVZWL DSC$W" tENG NGTH(RO), ges element Length 
02 a0 OC 91 0288 00 CMPB MSC DTYPE_FC, ‘pstse. a E(RO) COMPLEX*8 array? 
49 13 O28F 701 BEQL y FC proc ocees COMPLEX specially 
02 a0 OD 91 0291 108 CMPB POSCSR DTYPE_DC, DSC$B_ ptyPECR D Complex? 
48 13 95 70 BEQL AR special processing 
02 AO 1D 91 97 704 CMPB #OSCSR _DTYPE_GC, DSC$B_ pive (RO) ; G Complex? 
03 12 0298 £705 BNEQ 5$ ; Not complex 
0047 31 0290 706 BRw ARRAY_GC : Special erecquess 
43 D4 OSA 707 5$ CLRL =-(SP)~ : amake space for elem addr 
5 DD Q2A2 708 PUSHL R3 ; push element size 
7E 02 Ad 9A O2A4 709 MOVZBL DSCSB_DTYPE(RO), -(SP) ; Bi ush data-type code 
02 gf 91 O2A8 710 CMPB (SP), #DSC$K _DTYPE _BU : My FORTRAN” Stve us BU? 
0 12 O2AB 711 BNEQ $ ; 
6—€ 0 90 O2AD ne MOVB #OSCSK_DTYPE_B, (SP) ; Yes, it should be type B 
0 DD 0280 715 7$: PUSHL #3 ; 3 arguments to UDF 
02B2 714 10S: ; element loop point 
o>» s+ oseg 715 CMPL : ae of array yet? 
66 1E 028 716 BGEQU ARRAY_RET 
OC AE 64 ODE O2B7 717 MOVAL (R4), item r (SP) oe otenont address 
00000000'GF42 6— FA OBB 718 CALLG (SP), G* PORSSAA _UDF practi} ; call UDF routine 
54 5 CO O2Cc 719 ADDL2 R353 Ra” ; add length, point to next element 
EA 11 026 720 BRB 10$ : loop back 
02c8 721 
02¢8 16 3+ : x 
Osea Us? ; Here to transmit an entire unformatted array as a single unit 
BE Hs 
54 DD O2Cc 7 $ 208: ever. RS ; adr. of first byt of array 
0C AO DD O2CA 7 PUSHL DSCSL_ARSIZE(RO) ; array size in bytes 
7E 02 A0 9A O2CD 728 ROVZEL ps8 OTYP E(RO), =(SP) data type of array elements 
00000000'GF42 03 FB 0201 729 CAL G™FORSSAA_UDF _PRICR23 ; call UDF routine 
04 8 D9 =—s._-« 730 ; return to user program 
DA 731 
O2DA 7 ¢ i+ E 
O2DA 735 ; Here to handle formatted conpten data type. Make two calls per element in array. 
O2DA 734 ; Indicate which half by fourth actual parameter 
O2DA 735 ;:- 
DA 7 § 
DA 737 ARRAY_FC: 
50 OA DO DA 738 MOVL #DSCSK_DTYPE_F, RO ; RO = type 
51 04 00 8 DD 739 MOVL ; R1 = size 
0B «oii : Se BRB ARRAY_CPLX_COM ; Join common complex code. 
; E 148 ARRAY_DC: 
50 0B DO 0262 7% MOVL  #DSCSK_DTYPE_D, RO ; RO = type 


d 7 
COR$10_ELER ; FORTRAN 1/0 glonent transmission 15-SEP-1984 $3: 83:62 AX/VMS Macro V04-00 Page 8 
2-04 For 10_X_DA = Transmit entire array by d 6-SEP-1984 10:56:44 (CFORRTL.SRCJFORIOELEM.MAR; 1 (13) 
03. = ES re BRB ARRAY _DC_GC_COM ; Join common DC/GC code. 
E7 746 ARRAY_GC: 
50 1B 00 E7 74 MOVL #DSCSK_DTYPE_G, RO ; RO = type 
EA 748 ARRAY_DC_GC_COM: 
51 08 00 EA 74 Mov #8, RI ; R1 = size 
ED 750 ARRAY_CPLX_COM: 
7 7¢ ED £2] CLRQ -(SP) ; make space for flag and address 
_ ea. 7D O2EF 7 ¢ MOVQ RO, =(SP) 3; Push size (R1) and type (RO). 
04 dD 8 re a, PUSHL #4 ; 4 arguments to UDF routine 
F4 755 1108: ; loop 
~~ -* Wi F4 Leg CMPL ; end of array yet? 
24 «16 OoF? 75 BGEQU ARRAY RET : yes 
10 AE D4 Fos 758 CLRL cox. flag(sF) 3 lag real part 
oc as 54 00 FC 759 MOVL R4, item _addr(SP) : - real part address 
00000000'GF42. 6— FA 0300 760 CALLG (SP), G*FORSSAA_UDF_PRICR2 ; process real part 
10 AE 06 8 08 761 INCL cpx_flag( ) ;_mark imag part | 
OC AE O8 AE CO $48 toe ADDL item_size(SP), item_addr(SP) ; Step to imaginary part. 
00000000 * GF 42 $f FA 031 76 CALL (SP), G*FORSSAA_UDF_PRICR2) ; process imag part 
54. COS cO 0318 Ae: ADDL R3 ; add length 
dD? = 11 «0318 = 705 116$ ; loop back 
031D 766 
031D 767 ARRAY_RET: 
04 031D 768 RET 


e # 
FORSIO_ELEM ; FORTRAN 1/0 element transmission 15-SEP-1984 23:53:43 VAX/VMS Macro V04-00 Page 19 
ebe? FORSIO_X_SE - Transmit contiguous implie 6-SEP-1984 ( 7:56:44 CFORRTL.SRCJFORIOELEM.MAR; 1 ° (14) 
if pre -SBTTL FORSIO_X_SB - Transmit contiguous implied-D0 List 
' 
1E oe i++ 
if 7 ; ABSTRACT: 
e)©6C ho? § Transmit (READ or WRITE) the elements of a one-level gont iguous 
O31E £76 ; implied=-DO List to or from the record buffer, by calling the 
8 | Saece soprerr reve user data formatter (UDF) routine for the current 
1E ore 3 1/0 statement. This entry point is called only for unformatted 
O31E 779; statements. 
OS1E 780 ; 
8 if 4 1 ; FORMAL PARAMETERS: 
O31E 13 ; SIMPLE _BLOCK.rr.r A block Serr ibing a simple (contiguous) 
O31E 784; implied-DO List, in the form: 
Bate 785 ; 
Baie 6 Py ” 10t- $ eevee} heneet a an ow 
; H i dtype | engt H 
Bele res ry { Teme ee ewe per see Se _ nadia =! 
: ' ase address H 
O31 790 : | pecucnsceceeseuencscessansases ' 
: ' count ' 
Osis 2s 4-5 > © § + |. <-" -qtiagasaasssastniasisassarannsrimncaiaitiaiaaears 
O31E 793; 
O31E 794 ; where count is a signed longword containing the iteration count. 
O31E 795 ; This block is identified by the private-use descriptor class 
O31E 796; code 191 = FORSK_CLASS_SB. 
O31E 797 ; 
O31E 798 ; IMPLICIT INPUTS: 
O31E 799 ; 
O31E 800 ; FORSS$A_CUR_LUB Address of current logical unit block. 
O31E 801 ; ISBSB_STTM_TYPE 1/0 statement type code - index 
O31E B08 : to dispatch table entry. 
O31E 803 ; FORSSAA_UDF _PR1 Array of user data formatters (UDF 
O31E 804 ; level of abstraction.) 
O31E 805 ; 
O31 806 ; IMPLICIT OUTPUTS: 
O31E 807 ; 
O31E 808 ; NONE 
O31E 809 ; 
O31E 810 ; SIDE EFFECTS: 
bale 811 ; 
OSE af ; Errors are signaled unless an ERR= parameter was specified at 
7 813 3 statement initialization time (see FORSREAD_xy, FORSWRITE_xy), 
TE 39814 in which case control is transferred to the specified address, 
O31E nz : after siack unwind. 
O31E 18 ie 
O31E 81 
0800 if 18 -ENTRY FORSIO_X_SB, X_SB_MASK 
5¢ 404 AC DO 19 MOVL  elem_adrtAPS, Riz : R12 => argunent block 
51 08 AC b 4 30 MOVL count(R12), R1 ; R1 = coun 
2F. 2 615 «(0 1 BLEQ 10$ ; Return if count <= 0. 
34 
§ ; Construct an argument List on the stack for the call to UDF Level. 
04 AC BD A 5 PUSHL DSCSA_POINTER(R12) ; Push element address. 
50 866C C D 6 MOVZWi DSCSWLLENGTH(R12), RO ; Extend element size. 


o 
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FORSIO_ELEM : FORTRAN 1/0 e 
2-04 FORSIO_X_SB = Transmit contiguous implie "38 SEP=1984 FORRTL.SRCJFORIOELEM.MAR; 1 
a ae & 0 7 MULL3 ; Place array by A - stack. 
E 0 AC 9A 4 : MOV ZBL D3. opr ype (R12) -(SP) : Push data t type ¢ 
95 "CF OD 8 MOVAL WERR“HAN ; Establish E + oe handler. 
5B 0000 og ‘GF D D 0 OVL BOE OR $A_CUR (UB, R11 13 R11 => Current pomares Block 
51 sFF 9A 0344 1 MOVZBL 1SB$B_STTM TYPE CAI) Get statemen afzPeat for dispatch 
51 00000000'GF41 DO 0349 ; OVL G*FORSSAA_ODF PERT <1 SBSK._ Forstry 0*4-4>(R 
1 celoneneal R DF routine 
00000000'GF41 03 FB 1 4 CALLS #3, G*FORSSAA_UDF -PRICRTY Call UbF-level routine. 
04 9 5 108: RET ; heturn to caller. 
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-SBTTL FORSIO_X_NL = Transmit non-contiguous implied-DO List 


we 
oO 

zn 
re 


++ 

; ABSTRACT: 

Transmit (READ or WRITE) the elements of a one-level 
non-contiguous implied-DO List to or from the record buffer, by 
calling the eggreps rece user data formatter (UDF) routine for 
the current 1/0 statement. This entry point is called for both 
formatted and unformatted statements. 


FORMAL PARAMETERS: 


NON_CTG_BLOCK.rr.r A block Sooge thing a non-contiguous 
implied-DO List, In the form: 


190 {| dtype } Length 


stride 


where count is a signed longword containing the iteration count, 
and stride is a signed longword containing the amount by which 
to augment the base address for each element transmitted. This 
block is identified by the private-use descriptor class code 

190 = FORSK_CLASS_NL. 


IMPLICIT INPUTS: 


FORS$A_CUR_LUB Address of current logical unit block. 

ISBSB_STTM_TYPE 1/0 statement type code - index | 
to dispatch table entry. 

FORSSAA_UDF _PR1 Array of user data formatters (UDF 


level of abstraction.) 
IMPLICIT OUTPUTS: 
NONE 
SIDE EFFECTS: 
errors ere. 0) nered unless an ERR= parameter was speci tted at 
ation time (see FORSREAD_xy, FORSWRITE_xy), 


n which case control is transferred to the specified address, 
after stack unwind. 
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H 7 
O_ELEM . Dy 1/0 element transmission 137 360- 1986 TH eh AX/VMS Macro v04-00 Page $8 
For IO_X_NL = Transmit non-contiguous im 6-SEP-1984 10:56:44 (CFORRTL.SRCJFORIOELEM.MAR; 1 (16) 
081 eA 90 sENTRY FORSIO_X_NL, “M<R2, R3, R4, R11> 
3 04 AC OD f 91 MOVL elem_adrtAPS, R12 : R12 => argument block 
4 § AC OD 6 3 MOVL stride(R12), R4 ; R4 = stride 
53 O8 AC OD 64 9 MOVL count (R12), R3 ; R3 = count 
01 #14 68 94 BGTR 10 : Is count > 0? 
04 oA + RET ; If not, return. 
60 ee "CF D $ 39 10$ MOVAL W*“ERR_HANDLER, (FP) 3; Establish ERR=/END= handler. 
5B Q0000000'GF 0D 98 MOVL G*FORSSA_CUR_LUB, R11 ; R11 => Current Control Block 
52. FF71 (CB. 9A (037 99 MOVZBL ISB$B_STTM TYPE(R11), R2; Get statement type for dispatch 
52 00000000'GF42 DO 037¢ 900 OVL  G*FORSSAA_ODF _PR1-<1SB$k_FORSTTYLO*#4-4>CR21, R2 
baee op) : 3; R2 = displacement to UDF routine 
0384 908 ; Construct an argument List on the stack for the call to UDF level. 
0384 904 ; Allow room for a second argument List, for use if the elements are 
tt 905 ; formatted and complex. Each argument List is composed of five 
0384 906 ; longwords, including the count. (Be careful about pushing anything 
bene tf ; else after this point.) 
5E 18 C2 0384 909 SUBL #24, SP ; Allow room for flag in first 
0387 910 ; _list (4), plus second List (20). 
04 AC 0D 0387 911 PUSHL DSC$A_POINTER(R12) ; Push element address. 
E 6C 3C OQ38A 31g MOVZWL DSCSW_LENGTH(R12), =(SP) ; Push element size. 
7E O02 AC GA O38D 91 MOVZBL DgCS8_DIYPECRIC), -(SP) ; Push data type code. 
DD tH ate . PUSHL # ; Push argument count. 
O338 318 ; Determine whether the array can be transmitted as a unit. 
15 FC AB 09)—=C ET «=—0393)—Css918 BBC #LUBSV_UNFORMAT, - ; If formatted, transmit the 
0398 919 LUBSW_ONIT_ATTR(R11), NLFMT ; elements individually. 
54 6C 10 00 ED 0398 920 CMPZV «#0, #16, DSCSW_LENGTH(R12), R4 ; Is Length = stride? 
eo tz Baer 35! i BNEQ NLIPER ; If not, it's noncontiguous. 
Baer $08 ; Unformatted and contiguous: transmit the array with a single call. 
08 AE O8 AC C4 O39F 925 NLUNIT: MULL2 count(R12), item size(SP) ; Compute array size. | 
O0000000'GF42 = 6€E FA Q3A4 358 CALLG (SP), G*FORSSAA_ODF_PRICR2) ; Call UDF-level routine. 
94 O3AC 927 ; Return to caller. 
O3AD 928 ;+ 
Baap 359 3; Formatted: check for complex. 
50 000C0004 8F 02 AC 78 Q3AD 931 NLFMT: ASHL DSC$B_DTYPE(R12), - ; Is this F, D or G complex? 
0386 93¢ #<<1 @ <31-DSCSK_DTYPE_FC>> + = ; (This instruction. 
0386 33 <1 a SgyB Seek DIVES DE>9 += ; shifts a mask having 
8 B6 8934 <1 @ <31-DSCSK-DTYPE-GC>>>, RO ; bits 19, 18 and 2 set 
B6 935 : irepresent ing FC, DC and GC 
0386 936 3 respectively otype” laces. 
Ob 19 0386 937 BLSS NL2PER ; Branch if any of the above 
02 O4 AE 91 B8 938 CMPB item_type(SP), MDSCSK_DTYPE_BU ; Is it type BU? 
04 4s BC 939 BNEQ i ; Branch if not. 
04 AE 06 9 8 8 940 MOVB #OSCSK_DTYPE_B, item_type(SP)  ; Yes: make it type B. 
0149 31 O3C2 941 208: BRW NL1B ; Use NLIPER, but bypass 
Bs 38 : the optimization applying to 
03¢5 = 94 ; unformatted elements only. 
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FORSJO_ELEM FORTRAN 1/0 element transmission 15-SEP-1984 23:53:43 VAX/VMS Macro V04-00 Page 23 FC 
be) forsio x NL - Tronentt non-contiguous im a7SEb= 1 98¢ 19:38i02 FORRTL.SRCJFORIOELEM.MAR; 1 = GF) 1: 
C 945 ;+ ; 
C 946 ; Formatted and complex. Transmit the elements individually, making two 
C 947 ; calls per element. Use the flag argument to identify the real or 
; ace ; imaginary part. 
c5§ 950 ASSUME <DSCSK_DTYPE_FC = DSCSK_DTYPE_F> EQUAL <DSCS$K_DTYPE_DC = DSCSK_DTYPE_ 
C5 951 ASSUME <DSCSK"DTYPE_FC = DSCSK-DTYPE-F> EQUAL <DSCSK-DTYPE-GC = DSC$K-DTYPE~ 
6f 0g Ce 326 NL2PER: INCL (SP) i In¢rease argument Count fo 4. 
04 AE C C7 «95 SUBL § #<DSCSK_DTYPE_FC = DSCSK_DTYPE_F>, - 
8 CB «954 ten. type SP) ; Gonvert FC/DC/GC to F/D/G. 
08 AE OB8 AE FF 8F 78 C 955 ASHL #-1, item size(SP), item_size(SP) ; Halve item size. 
10 AE be 8 D 328 CLRL cpx_ flag (SP) 3 Indicate real part. 
14 AE 6€ D D 95 MOVQ (SPY, 2 (SP) : anugse: tae second arg List. 
1C AE O8 AE DO 0309 958 MOVL item_size(SP), item_size+20(SP) ; ... 
24 A 01 DO O35D 959 MOVL #1, Cox i 0(SP) : Indicate imaginary part. 
OC AE 04 AC DO O3E2 960 MOVL  DSCSA_POINTER(R12), item addr (SP) 
O3E 961 ; Initialize real part address. 
20 AE OB AE O04 AC C1 O3E7 968 ADDL3 DSCSA_POINTER(R12), item_size(SP), item_addr+20(SP) 
OSEE 96 Initialize imag part address. 
QOOO00000'GF42 6E& FA O3EE 964 408: CALLG (SP), G*FORSSAA_UDF pri Che : Transmit real part. 
OOO00000'GF42 14 AE FA O3F6 965 CALLG 20(SP), G*FORSSAA_UDF_PRICR2) ; Transmit imaginary part. 
OC AE 54 CO OSFF 966 ADDL R4, item_addr (SP) ; Stride to next element. 
20 AE 54 CO 0403 967 ADDL R4, item_addr+20(SP) S ane 
E453 F5 0407 968 SOBGTR R3, 40$ ; Decrement and test count. 
04 040A 969 RET ; Return to caller. 
0408 970 ;+ 
040B 971 ; Unformatted and noncontiguous, or formatted and not complex. Transmit 
0408 3f8 3; the elements individually, making one call per element. (Formatted 
bebe 45 ; enters at NL1B, below.) 
OE O4A D1 0408 975 NLIPER: CMPL item_type(SP), MDSCSK_DTYPE_T ; Is this type character? 
0 12 O40F 976 BNEQ NLIA ; If not, optimize. 
OOFA 31 0411 977 BRW NL1B : If so, don’t optimize, since 
0414 978 g its length is not restricted 
0414 979 ; tol, 2, 4, 8 or 16 bytes. 
0414 980 ;+ 
98h st ; Optimization for unformatted only. 
0414 383 ; Set R2 to the address of the appropriate MOVx instruction, below, for 
0414 984 ; use when transmitting elements which do not require a call to UDf 
Bete +H ; level (most of them). 
38 FF71 CB =E—9 0414 987 NLIA: BLBC ISBSB_STTM_TYPE(R11), RADDR ; Branch if reading. 
07 01 OB AE CF 0419 988 CASEL item Size(SP), #1, #7? =; dispatch on element size 
0017" 041 989 10$: -WORD AWBYTE - 10$ 
OO1E' 04 990 -WORD AWWORD - 10$ 
000 4 991 «WORD 
0025" 0424 99 «WORD AWLONG - 10$ 
0000 Be g 99 WORD 
000 04 994 » WORD : 
44 42A 86995 . WORD 
O2C* 042C 44 -WORD AWQUAD - 10$ : i : 
52 eal ' of : 5 997 AWOCTA: yt Yeyorta, R2 ; R2 = addr of ‘MOVO"’ for write . 
52 04B9'CF oF H 999 AWBYTE: + W*WUBYTE, R2 ; R2 = addr of MOVB for write : 
52 O4BF'CF DE 43C 1001 AWWORD: MOVAL W*WUWORD, R2 ; R2 = addr of MOVW for write 
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FORSIO_ELEM ; FORTRAN 1/0 element transmission 15-SEP-1984 23:53:43 VAX/VMS Macro V04-00 Page 24 
abe FORSIO_X_NL - Fronsait non-contiguous im o-8Ep-198¢ 19:86:ca FORRTL.SRCJFORIOELEM.MAR; 1 ° 39) 
11 0441 1 6 BRB ACOM 
52 O4C5'CF oF rr ! Z AWLONG: oe W*WULONG, R2 3; R2 = addr of MOVL for write 
52 te’ bf 44A 1005 AWQUAD: MOVAL W*WUQUAD, R2 ; R2 = addr of MOVO for write 
1 tes ! § BRB ACOM 
07 O11 O8 AE CF 131 1 38 RADDR: CASEL item_size(SP), #1, #7 ; dispatch on element size 
pees 128 1 10$: -WORD ARBYTE = 10$ 
O1E* 045 1010 -WORD ARWORD - 10$ 
00 tte 1011 «WORD 
0025" 045¢ 1 \¢ «WORD ARLONG - 10$ 
8 0 Q45€ 101 ~ WORD 
00 0460 1014 WORD 
0000 0462 1015 «WORD 
002C* 0464 1918 -WORD ARQUAD = 10$ : 
52 O4F5'CF DE 0466 1017 AROCTA: MOVAL W*RUOCTA, R2 ; R2 = addr of ‘MOVO'’ for read ‘ 
11 0468 1318 BRB ACOM ; 
52 O4DD'CF 0 B298 1349 ARBYTE: a ) ahaa R2 ; R2 = addr of MOVB for read ‘ 
52 OGE3°CF DE 0474 1021 ARWORD: MOVAL wW“*RUWORD, R2 ; R2 = addr of MOVW for read . 
C 11 0479 10 g BRB M ; 
52 O4E9'CF DE 0478 1025 ARLONG: MOVAL W*RULONG, R2 ; R2 = addr of MOVL for read ; 
0 11 0480 1024 BRB ACOM 
52 OSEF'CF ODE e413 1025 ARQUAD: MOVAL W*“RUQUAD, R2 ; R2 = addr of MOVQ for read 
048 1026 ; BRB ACOM 
0487 1027 ACOM: 
0487 1028 ;+ : ; 
rt 18 4 ; Here after a call to UDF level to re-establish the pointer in RO. 
50 60 AB DO og 14 193) NL1AX: MOVL LUBSA_BUF_PTR(R11), RO ; RO -> next buffer location 
3+ 
Rene 1938 ; Here after a simple move, to see whether another move is possible. 
51 O08 AE 50 C1 0488 1035 NLIAY: ADDL3 RO, item_size(SP), R1 ; R1 = final byte needed + 1 
B4 AB 51 = =D1 «0490 1036 CMPL R1, LUBSA_BUF_END(R11) ; Will element fit in buffer? 
02 1A 0494 1037 BGTRU NLICAL : Branch if not. 
62 17 0496 1038 JMP (R2) ; Go move the element directly. 
0498 1039 ;+ 
beop ey ; Here if there is no room for a particular element. 
DO 0498 H ok NLICAL: MOVL RO, LUBSA_ BUF _PTR(R11) ; Save possibly updated pointer. 
51 FF71 CB 9A O49C 104 MOVZBL 1ISB$B STTM TYPE(R11), Rl; Reconstruct dispatch address. 
51 00000000 ' GF 41 DO OQ4A1 1044 MOVL G*FORSSAA_ODF PR1-<1SBSK F RSTTYLO*4-4>LR1 R1 
00000000 GF 41 gf FA Beat 1342 CALLG (SP), G*FORSSAA UDF _PRICR1) ; Call UDF routine w/ CALLG. 
OC AE 4 CO 0481 1046 ADDL R4, item_addr (SP) ; Step to next element. 
53 F5 0485 1047 SOBGTR R3, NLIAR ; Decrement and test count. 
04 0488 1048 RET ; Return to caller. 
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2-04 FORSIO_X_NL = Transmit non-contiguous im 6-SEP=-1984 6:44 FPORRIL. SRCJFORIOELEM.MAR; 1 (18) | 
80 OC 4 29 489 1 29 WUBYTE: MOVB @item_addr(SP), (RO)+  ; Move byte to buffer 
4 1 48D 1 : BRB U 
80 60C 14 #9 rt 4 | WUWORD : cove ° fen_oddr (SP), (RO)+ |; Move word to buffer 
80 OC BF 0 ats } $4 WULONG: poyt a\ten_ addr(SP), (RO)+ ; Move Longword to buffer 
80 OC BE 7d O4CB 1 2$ WUQUAD: MOVQ @item_addr(SP), (RO)+ ; Move quadword to buffer 
2—E 8611 OCF 105 BRB yon | 
51 OC AE pe 401 1 28 WUOCTA: MOVL tem giants) R1 3; Move octaword to buffer | 
80 81 D ret 105 mMOVQ (R1)#, (RO)+ ; Move first quadword 
80 61 7D 0408 1060 MOVQ (R1), (RO)+ ; Move second quadword 
eh re ! 6 BRB UCOM 
OC BE 80 90 0400 1068 RUBYTE: MOVB (RO)+, @item_addr(SP)  ; Move byte from buffer 
1C 11 Q46E1 1064 BRB UCOM 
OC BE 80 BO 04E3 1065 RUWORD: MOVW (RO)+, @item_addr(SP) ; Move word from buffer 
, eee 4E7 1 98 BRB UCOM 
OC BE 80 DO O4E9 1067 RULONG: MOVL (RO)+, @item_addr(SP)  ; Move longword from buffer 
10 11 0sED 1068 BRE ucOM | 
OC BE 80 7D O4EF 1069 RUQUAD: MOVa (RO)+, @item_addr (SP) ; Move quadword from buffer 
OA 11 O4F3 1070 BRB UCOM 
51 OC AE 00 O4F5 1071 RUOCTA: MOVL item z2ddr (SP), R1 ; Move octaword from buffer 
81 80 7D Q4F9 1976 MOVQ (RO)F, (R1)+ ; Move first quadword 
61 80 7D O4FC 107 mMOvVa (RO)+, (R1) 3; Move second quadword 
O4FF 1074 ; BRB UGOn 
OC AE 54 CO O4FF 1075 UCOM: ADDL R4, itee addr (SP) ; Step to next element. 
05 53 +F5 0503 1076 SOBGTR R3, ; Decrement and test count. 
BO AB 50 ~ 00 Bane 1077 MOVL RO, CUBSA _BUF_PTR(R11) ; Update buffer pointer. 
04 Q50A 1078 RET ; Return to caller. 
FF7D 31 Q50B 1079 BNLIAY: BRW NLIAY 
O50E 1080 
OSOE 1081 ;+ 
43 1386 ; Formatted and not complex 
QO000000'GF42 6€ FA OQ50E 1084 NL1B: CALLG (SP), G*FORSSAA_UDF_PRICR2]) ; Call UDF routine w/ CALLG. | 
OC AE 54 CO 0516 1085 ADDL R4, iten _addr (SP) 5 Step to next element. 
F153 FS OSIA 1086 SOBGTR R3. NLIB™ ; Decrement and test count. 
04 051D 1087 RET ; Return to caller. 
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ERR_HANDLER Frcoption handler for erro 3-$Ep= 1980 THe EPORRTL. SREIFORIOELEM.MAR: 1 coe (38) 


FUNCTION VALUE: 


SS$_RESIGNAL to cause a resignal to occur (no END= or ERR=) 

to give user handler and OTS default handler a chance at error. . 
However, if an ERR= or END= transfer is to be done, the function value is ig 
by the condition handling facility because UNWIND has been called. 


SIDE EFFECTS: 


If an ERR= or an END= transfer is to take place back to the user, 
SYSSSUNWIND has been called to casue the condition handling facility 
to unwind the stack when this error handler returns. 


SHE 4 -SBTTL ERR_HANDLER - Exception handler for errors 
92 5+ 

4 ; ABSTRACT: 

95 ; ERR_HANDLER accepts a signal and calls the ERR= and ee 

96 ; error condition handler as if it were the CHF condition 

97 ; facility itself. It passes along to FORSSEND_ERRHND 

98 ; the ERR= and END= user addresses saved in the ISB at the 

99 ; beginning of the 1/0 statement. | 

0 ; FORMAL PARAMETERS: | 
; NONE | 
; IMPLICIT INPUTS: 
: FORS$A_CUR_LUB Adr. of current logical unit block 
3 ISBSA_ERR_EQUAL Adr. in user program to transfer to on errors or 0 | 
; ISBSA_END_EQUAL Adr. in user program to transfer to on EOF or 0 
: IMPLICIT OUTPUTS: 
; NONE 


ERR_HANDLER: 
«WORD 


a a a a ak a a ed at a at tt ot = = = SS 2 ss SS ss SS Ss SS SS SS ss — ss SS os Ss ss 6s Ss  — 
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0000 ; no registers need saying 
50 00000000'GF 00 MOVL G*FORSSA_CUR_LUB, RO ; RO => Current Control Block 
00 oD PUSHL #FORSK_UNWINDPOP ; make a long containing FORSK_UNWINDPOP 
; to indicate UNWIND action is to pop LUB/IS | 
00 oD PUSHL #0 ; make a by reference | 
5E OD PUSHL SP ; point to the 0 - incremental depth = — 
3; no. of frames between user and establisher | 
FF78 CO OOF PUSHAL ISBSA_END_EQUAL (RO) 3; push END= address 
FF74 CO OF PUSHAL ISB$A_ERR_EQUAL(RO) 3; push ERR= address 
7E 10 AE ODE MOVAL 6(SPY, -TSP) ; Indicate UNWIND action is to 
: pop current LUB/ISB/RAB on error 
of DD PUSHL #4 3 NABLE args 
E D PUSHL SP ; push address of ENABLE args 
7E 04 AC D MOVQ sig_args(AP), -(SP) 3 copy down the signal arg and 
3 mechanism arg ptrs from the caller 
OOO00000'EF 03 CALLS #3, L*FORSSERR_ENDHND ; call the real handler 


7 | 
ERRoHANDLER = Exception handler for erro O-SEP=1986 f0:Sa:e EPORRTL.SRESPORIOELEM.MaR;1 “29° (3g). 


04 B38 11¢2 RET 
4 1148 «END :; end of module FORSIO_ELEM.MAR 
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FORSIO_ELEM 
Symbol table 


RWORD 
SF SL 


SAVE _PC 
$1G_ARGS 
TR 


X_DA_MASK 
X~SB"MASK 


PSECT name 


Page faults 


Initialization 
Command processing 


Pass 

Symbol table sort 
Pass 2 

Symbol table output 
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; FORTRAN 1/0 element transmission 
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PSECT No. Attributes 


NOPIC USR 


Allocation 

00000000 < 0.) 0.) 

00000000 <( +f 01 ¢( +1.) \NOPIC  USR 

00000549 ( 1353.) 02 ¢ 2.) PIC USR 
et | 


: Performance indicators H 
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CON 
CON 


0:00:00.9 
0:00: 


f 
at: 9 
i 
3 


4 
08:6 
b0:6 


WA & EP 
ooo 
Cooooo 


acro V04-00 
RCJFORIOELEM.MAR; 1 
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NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD WRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 


The porting » set Limit was 1500 pages. 

35693 bytes 4 0 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space ducing 10 to hold 591 non-local ~ 17 local symbols. 
1149 source Lines were read in Pass 1, progyc Ing 1 object records in Pass 

25 pages of virtual memory were used to define 2 macros. 


Macro Library name Macros defined 
$255SDUA B: FORRTL.OBJJFORRTL.MLB; 1 3 
$255$DUA28: (SYSLIBJSTARLET.MLB; 2 6 

wtht (all Libraries) o 

548 GETS were required to define 9 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORIOELEM/OBJ=OBJ$:FORIOELEM MSRC$:FORIOELEM/UPDATE=(ENHS: FORIOELEM) +L 


RRS PPS RE Eas ae Sa 
Cc 8 

FORSIO_ELEM ; FORTRAN 1/0 element transmission 15-SEP-1984 #3 32°47 payee Oe cro V04-00 aaa 

VAX=11 Macro Run Statistics 6-SEP-1984 10:56:44 FORRTL.SRC (oF ORIOELEM.MAR; 1 

Psect synopsis output 00:00:00. 00:00.1 

trese-re ference output ; 00:00:00-00 09: RR 9. ef 

Assembler run totals 656 0:00:10. 
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